use strict;
use warnings;

use Chart::Lines;

sub get_chart() {
	my $chart = Chart::Lines->new(900, 400);

	my $colors = {
	#		'background' => [255,1,255],
		'dataset0' => [255,1,255]
	};
	#print $colors->{'background'}->[0];

	my @legend_labels = ('');


	$chart->set(
			'title' => 'Tytul',
			'x_label' => 'dane',	
			'y_label' => 'wartosci',
			'legend' => 'bottom',	
			'legend_labels' => \@legend_labels,
			'colors' => $colors			
	);

	return $chart;
}



#  my @data = ( [ 'foo', 213123, 'junk' ],
#            [ 30.2,  23.5,  2.1   ] );

#  $chart->png ("foo.png", \@data);

1;
